home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00005Series_28.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  958 b   |  35 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   puppetTransition(47, 1, 8)
  4.   put EMPTY into field "bemodnum"
  5.   put EMPTY into field "comodnum"
  6.   put EMPTY into field "whexmodnum"
  7.   put EMPTY into field "bearingoption"
  8.   if field "diamodnum" contains "8" then
  9.     if field "mtmodnum" contains "79" then
  10.       put "64" into field "whmodnum"
  11.       put EMPTY into field "bemodnum"
  12.       put ".7" into field "comodnum"
  13.       put EMPTY into field "whexmodnum"
  14.       put EMPTY into field "bearingoption"
  15.       puppetTransition(47, 1, 8)
  16.       play frame "4bbearingc"
  17.       abort()
  18.     else
  19.       play frame "5molruba"
  20.       abort()
  21.     end if
  22.   end if
  23.   if field "diamodnum" contains "10" then
  24.     play frame "5molrubb"
  25.     abort()
  26.   end if
  27.   put "64" into field "whmodnum"
  28.   put EMPTY into field "bemodnum"
  29.   put ".7" into field "comodnum"
  30.   put EMPTY into field "whexmodnum"
  31.   put EMPTY into field "bearingoption"
  32.   puppetTransition(47, 1, 8)
  33.   play frame "4bbearingc"
  34. end
  35.